Returns a read-only unique identifier, or CLSID, identifying an object, as a String.
expression.CLSID
expression Required. An expression that returns one of the objects in the Applies To list.
This example returns the CLSID of an add-in titled "Analysis ToolPak". This example assumes the "Analysis ToolPak" has been installed.
Sub FindCLSID()
MsgBox Application.AddIns("Analysis ToolPak").CLSID
End Sub